Program Dias_Semana;

 Type
  Dia_Semana = (Lunes,Martes,Miercoles,Jueves,
                Viernes,Sabado,Domingo];
 Var
  dia :Dia_Semana;
  x    :entero;
 Begin
  
  dia:=lunes;
  
  begin
    case dias of
        Lunes     :x:=1;
        Martes    :x:=2;
        Miércoles :x:=3;
        Jueves    :x:=4;
        Viernes   :x:=5;
        Sabado    :x:=6;
        Domingo   :x:=7
    end;
    
  end;
end.